home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-03 / qbasicpg.zip / IF-5.BAS < prev    next >
Encoding:
BASIC Source File  |  1989-08-31  |  493 b   |  19 lines
  1. ' IF-5.BAS
  2. ' This program demonstrates the block IF statement.
  3.  
  4. CLS
  5.  
  6. PRINT "Welcome to Automobile Trivia!"
  7. PRINT
  8. PRINT "In what year did Karl-Friedrich Benz test-drive"
  9. INPUT "the first successful gasoline-driven automobile?  ", guess%
  10. PRINT
  11. IF guess% = 1885 THEN
  12.     PRINT "That's right!  You're quite a car buff!"
  13. ELSE
  14.     PRINT "No, he first drove it at Mannheim, Germany,"
  15.     PRINT "in 1885.  (It was patented on January 29, 1886.)"
  16. END IF
  17. PRINT "Thanks for guessing!"
  18.  
  19.